home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
bbs_lord
/
life118d.zip
/
LIFE.ZIP
/
MAINTXT.DAT
< prev
next >
Wrap
Text File
|
1996-03-15
|
20KB
|
596 lines
//This is the main lordlife file...modify it at your own
//risk!!!
@#BEGIN
`<NewLine>
`2Checking if new day...
`<if>=[(LifeDate),(TheUser),(TheDate),@#AfterResets]
`<SetVal>=[(FHadDrink),(TheUser),0]
`<SetVal>=[(FHadBeer),(TheUser),0]
`<SetVal>=[(FWashroom),(TheUser),0]
`<SetVal>=[(FTalked),(TheUser),0]
`<SetVal>=[(FHadSpec),(TheUser),0]
`<SetVal>=[(FHadVegg),(TheUser),0]
`<SetVal>=[(FDeedDone),(TheUser),0]
`<SetVal>=[(FJoust),(TheUser),0]
`<SetVal>=[(FVisLan),(TheUser),0]
`<SetVal>=[(FVisLisa),(TheUser),0]
`<SetVal>=[(FTrained),(TheUser),0]
`<SetVal>=[(FGambled),(TheUser),0]
`<goto>=[@#AfterResets]
@#AfterResets
//set testdate=thedate
`<SetVal>=[(LifeDate),(TheUser),(TheDate)]
`2OK...
`<NewLine>
`<NewLine>
`2You now get a choice...
`5Do you want to get mail when you return to lord telling of what
`5you have gained in this session of Life?
`3If you say no...you get no report, but speed is slightly improved
`3on slower bbs's.
`<NewLine>
`<RetOff>
`3Send progress mail after your done? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),Y,@#StartMail]
`<SetVal>=[(MailUserResults),(TheUser),0]
`<SetMenu>=[MainMenu]
//
// Main Menu follows
//
@#MainMenu
`<SetOptions>=[T,P,I,D,C,H,J,L,V,M,W,G,A,Y,U,Q,B]
`<NewLine>
`<Clear>
`<NewLine>
`<NewLine>
`<GotoXY>=[1,1]
`<NewLine>
`<RetOn>
`0 `1Lor`9d `3Li`%fe Ma`3in`9 S`1treet...
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`2 You are glad your journey is finally over...it was a long way from the
`2forests and small town of lord to the big city...
`2Lord life is certainly big...you're sure to find some fame and
`2fortune here...
`2 (`4B`2)rave Traveling
//`2 (`5F`2)orests of `0LORD`2 (`4B`2)rave Traveling
`2 (`5T`2)risnic's Tavern (`5V`2)iew your stats
`2 (`5P`2)ub (`5M`2)ystical services
`2 (`5I`2)nn (`5W`2)olf's weapons
`2 (`5D`2)ockside Bar (`5G`2)o train with al'Lan
`2 (`5C`2)ounceling help (`5A`2)rmour center
`2 (`5H`2)eroic deeds (`5Y`2)e International Bank
`2 (`5J`2)ousting Center (`%U`2)se map view!
`2 (`5L`2)ist lord life players (`4Q`2)uit back to the small town
//MOST MENUS HAVE THEIR OWN TEXT FILES AS WELL
@#MainMenuOptions?
`<SetMenu>=[MainMenu]
@#MainMenuOptionsF
`2
`2 Note: A forest fight here is equal to a forest fight in lord.
`2
`3 Now do you wish to fight `2LORD`3 style or would you like
`3something a bit more exciting...like a map view of the forest
`0
`<RetOff>
`0 Decide now...(`5M`0)ap view, or (`5T`0)ext view... [`5M`0]:
`<Space>
`<GetAns>=[(TempStr0),MT,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),T,@#TextBattle]
@#TextBattle
`<SetMenu>=[Forest]
@#Forest
`<ShowAnsi>=[(TLifesDir),lorfor.ans]
`<SetOptions>=[R,L,A,H]
`2
`2
`<RetOff>
`2HitPoints (`0
`<PFormat>=[(LordHP),(TheUser)]
`2 of `0
`<PFormat>=[(LordHPMax),(TheUser)]
`2) Gold: `0
`<PFormat>=[(LordGold),(TheUser)]
`2 Gems: `0
`<PFormat>=[(LGems),(TheUser)]
`<NewLine>
`<RetOn>
@#ForestOptions|
`<SetMenu>=[MainMenu]
@#ForestOptions?
`<SetMenu>=[Forest]
@#ForestOptionsR
`<SetMenu>=[MainMenu]
@#ForestOptionsA
`<NewLine>
`<NewLine>
`%You brandish your weapon dramatically!
`2
@#ForestOptionsH
`2
`3 The healers are currently in the town of Lord...
`3
`5...Besides here in lord life things are done differently...
`5You will never need to see the healer here...
`5
`5
@#HealersOptionsR
`<SetMenu>=[Forest]
@#MainMenuOptionsU
`<NewLine>
`<NewLine>
`3PLEASE BE SURE THE NUM LOCK IS ON!
`% Use `2-=-=`4NUMBER KEYPAD`2=-=- `%to move your cursor...
`5Move to the purple letters for an action.
`<More>
`<SetMap>=[MainMap,17,5,~,0]
@#MainMenuOptionsB
`<SetMenuAndFile>=[GuideMenu,(TLifesDir),TRAVTXT.DAT]
@#MainMenuOptionsL
`<ShowLifeList>
@#MainMenuOptionsT
`<SetMenuAndFile>=[Tavern,(TLifesDir),TRISTXT.DAT]
@#MainMenuOptionsP
`<SetMenuAndFile>=[Pub,(TLifesDir),PUBTXT.DAT]
@#MainMenuOptionsI
`<SetMenuAndFile>=[Inn,(TLifesDir),INNTXT.DAT]
@#MainMenuOptionsD
`<SetMenuAndFile>=[Bar,(TLifesDir),BARTXT.DAT]
@#MainMenuOptionsC
//THIS MENU IS ALL IN THIS FILE
`<SetMenu>=[Help]
@#MainMenuOptionsH
`<SetMenuAndFile>=[Deeds,(TLifesDir),DEEDSTXT.DAT]
@#MainMenuOptionsJ
`<SetMenuAndFile>=[Jousting,(TLifesDir),JOUSTTXT.DAT]
@#MainMenuOptionsM
`<SetMenuAndFile>=[Mystical,(TLifesDir),MYSTTXT.DAT]
@#MainMenuOptionsW
`<SetMenuAndFile>=[Weapons,(TLifesDir),WEAPTXT.DAT]
@#MainMenuOptionsG
`<SetMenuAndFile>=[Trainings,(TLifesDir),TRAINTXT.DAT]
@#MainMenuOptionsA
`<SetMenuAndFile>=[Armour,(TLifesDir),ARMTXT.DAT]
@#MainMenuOptionsY
`<SetMenuAndFile>=[Bank,(TLifesDir),BANKTXT.DAT]
@#MainMenuOptionsQ
`<if>=[(MailUserResults),(TheUser),1,@#QuitWithMail]
`<Quit>
@#QuitWithMail
`<SetVal>=[(TempStr1),(TheUser),]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
`<SetVal>=[(TempStr1),(TheUser),(TMailNum)]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),-]
`<Quit>
@#MainMenuOptionsV
`<Clear>
`<Vals>
@#Help
`<SetOptions>=[A,H,C,D,V,P,R]
`<NewLine>
`<NewLine>
`<NewLine>
`0 Counceling Center
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2 You are encouraged to find a place of calm contemplation
`2in the big city...Leona the Blessed Mother of all is waiting
`2to help you...
`2 (`5A`2)sk her for help
`2 (`5H`2)elp on lord color scheme
`2 (`5C`2)hange your interest (i.e. Death knight,theiving, etc)
`2 (`5D`2)emand a sex change operation
`2 (`5V`2)iew credits
`2 (`5P`2)lease help with a negative `4error`2 with lord values
`2 (`4R`2)eturn to the big city
@#HelpOptions?
`<SetMenu>=[Help]
@#HelpOptionsC
`<NewLine>
`2Ahh this makes sense to me...ok...
`2Of course one can't often get things out of life for free...
`<RetOff>
`3Pay service fee of 500 Life dollars? (Y/N) `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),500,@#NSF]
`<SubVal>=[(FLifeGold),(TheUser),500]
`<Goto>=[@#ChangeInterest]
@#ChangeInterest
`2
`<RetOff>
`5Current Interest`9:
`<Space>
`<if>=[(LClass),(TheUser),1,`@Death knight skills]
`<if>=[(LClass),(TheUser),2,`!Mystical Skills]
`<if>=[(LClass),(TheUser),3,`$Theiving Skills]
`<NewLine>
`<RetOn>
`<goto>=[@#ImportantChoice]
@#ImportantChoice
`<NewLine>
`% As you remember your childhood you remember...
`0 (`5K`0)illing a lot of woodland creatures
`0 (`5D`0)abbling in the Mystical Forces
`0 (`5L`0)ying, cheating, and stealing form the blind
`<NewLine>
`<GetAns>=[(TempStr0),OKDL,(TheUser)]
`<if>=[(TempStr0),(TheUser),K,@#SetIt1]
`<if>=[(TempStr0),(TheUser),D,@#SetIt2]
`<if>=[(TempStr0),(TheUser),L,@#SetIt3]
`2 This is a very important choice.
`4Pay attention idiot!
`<if>=[(TempStr0),(TheUser),O,@#ImportantChoice]
`2oh oh somthins totally errr wrong. ahh well too bad :(
@#SetIt1
`<SetVal>=[(LClass),(TheUser),1]
`0Done!
`<More>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU CHANGED CLASS TO DEATH KNIGHT!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),9]
@#SetIt2
`<SetVal>=[(LClass),(TheUser),2]
`0Done!
`<More>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU CHANGED CLASS TO MYSTICAL!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),9]
@#SetIt3
`<SetVal>=[(LClass),(TheUser),3]
`0Done!
`<More>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU CHANGED CLASS TO THIEVERY!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),3]
@#HelpOptionsA
`<NewLine>
`<NewLine>
`5 Look all ye need to know is a few simple things:
`5
`31) The way to get the most STUFF is to (G)o spear rings in jousting.
`32) Drink and eat thats useful.
`34) Change yer sex in this menu if you like it'll only cost you
1000 lord gold (You must have 1000 lord gold in yer hand though)
`34) Try to do the best heroic deed that the game will let you...
those are very helpful.
`35) Also at the same time you can train with (L)an to gain Jousting
skill.
`<More>
`36) Change yer weapon and armour name in the (M)ystical menu...
it only costs 10 Gems and you can even add color...unfortunately
the name has to be rather short though.
`37) Send an ill wind after someone...gives weird results!
`38) `4YOU CAN EDIT THE MONSTER NAMES IN THE (M)ystical MENU
`$ IT COSTS YOU NOTHING!
`3 And you can add `1C`2O`3L`4E`5R`6!
`39) Talk about yerself in the tavern if you like...then you can ask
about others...maybe make some friends!
`310) The pub has a mirror that you can (C)onverse on.
`<More>
`311) And you can announce in lord using Lord Life's advanced
auto-color (tm) system :).
`<More>
`0 -=-=-=-=-=-=-
@#HelpOptionsD
`<NewLine>
`2Oh deary me...well ok if that's what you want...
`2Well this isn't an easy procedure...
`<RetOff>
`3Pay service fee of 1,000 Life dollars? (Y/N) `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),1000,@#NSF]
`<SubVal>=[(FLifeGold),(TheUser),1000]
`<if>=[(LSex),(TheUser),5,@#Femtomale]
`<SetVal>=[(LSex),(TheUser),5]
`9You are now chang`#ed to female!
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU WERE CHANG`#ED TO FEMALE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),9]
@#Femtomale
`<SetVal>=[(LSex),(TheUser),0]
`#You are now chang`9ed to male!
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU WERE CHAG`9ED TO MALE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),#]
@#HelpOptionsH
`2
`2 HELP on LORD color SCHEME
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`2 Ok bub...lord uses the back quote mark and a number for its
`2color scheme...so if in a message or announcement you use the back
`2quote (this is located below the esc key-on the tilde(~))
`2 Lord Life uses an auto-color feature which changes the color instead
`2of displaying the color change chars...so if you type backquote and a
`2number then Lord Life changes the color instead of displaying the
`2backquote symbol and the number...this is useful so that
`2you know what your outcome will be...and you can easily change yer mind
`2about yer colors if you don't like them...
`<More>
`2==========================================================
`$THE ACTUAL COLORS FOLLOW
`2==========================================================
`2If you type: ``0 `0--Then this is the color you get.
`2If you type: ``1 `1--Then this is the color you get.
`2If you type: ``2 `2--Then this is the color you get.
`2If you type: ``3 `3--Then this is the color you get.
`2If you type: ``4 `4--Then this is the color you get.
`2If you type: ``5 `5--Then this is the color you get.
`2If you type: ``6 `6--Then this is the color you get.
`2If you type: ``7 `7--Then this is the color you get.
`2If you type: ``8 `8--Then this is the color you get.
`2If you type: ``9 `9--Then this is the color you get.
`2If you type: ``! `!--Then this is the color you get.
`2If you type: ``@ `@--Then this is the color you get.
`2If you type: ``# `#--Then this is the color you get.
`2If you type: ``$ `$--Then this is the color you get.
`2If you type: ``% `%--Then this is the color you get.
`2==========================================================
`<More>
@#HelpOptionsV
`<Credits>
@#HelpOptionsR
`<SetMenu>=[MainMenu]
@#HelpOptions|
`<SetMenu>=[MainMenu]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
`<More>
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
`<More>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#NoFairy
`<NewLine>
`2 Sorry pal...but you do not have a fairy!
`<NewLine>
@#LNine
`2
`2Sorry...You need to be on Level nine or higher to exchange!
`<More>
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
`<More>
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
`<More>
@#StartMail
`<SetVal>=[(MailUserResults),(TheUser),1]
`<SetVal>=[(TempStr1),(TheUser), `%These changes occurred while in `!Lor`%d L`9ife!`%: ]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),`]
`<SetVal>=[(TempStr1),(TheUser),-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),0]
`0Done!
`<SetMenu>=[MainMenu]
@#HelpOptionsP
`<SetMenu>=[Doctor]
@#Doctor
`<SetOptions>=[M,L,S,D,H,R]
`<NewLine>
`3OK...The doctor is in...
`2
`5Please tell me where you feel pain....
`9 What value do you think has been made negative
`9by some other ruthless program?
`1Of course lordlife doesn't allow values to overflow themselves
`1to become negative within its scope of power.
`2
`3 (`5M`3)y lord gold on hand has gone negative!
`3 (`5L`3)ord gold in lords bank has gone negative!
`3 (`5S`3)trength in lord has become negative!
`3 (`5D`3)efence in lord has become negative!
`3 (`5H`3)itpoints have become negative!
`3 (`4R`3)eturn to help menu
@#DoctorOptionsR
`<SetMenu>=[Help]
@#DoctorOptions|
`<SetMenu>=[Help]
@#DoctorOptions?
`<SetMenu>=[Doctor]
@#DoctorOptionsM
`<NewLine>
`5How about this idea...I will turn the value you have for on-hand gold....
`5into a positive value...It's not a perfect solution...but it's
`5the best I can really offer you...
`5If there is no problem with the value nothing will happen.
`2
`<RetOff>
`3Try to make the value positive? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(LordGold),(TheUser),0,`<MultVal>=[(LordGold),(TheUser),-1]
@#DoctorOptionsL
`<NewLine>
`5How about this idea...I will turn the value you have for bank gold....
`5into a positive value...It's not a perfect solution...but it's
`5the best I can really offer you...
`5If there is no problem with the value nothing will happen.
`2
`<RetOff>
`3Try to make the value positive? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(LordBank),(TheUser),0,`<MultVal>=[(LordBank),(TheUser),-1]
@#DoctorOptionsS
`<NewLine>
`5How about this idea...I will turn the value you have for strength....
`5into a positive value...It's not a perfect solution...but it's
`5the best I can really offer you...
`5If there is no problem with the value nothing will happen.
`2
`<RetOff>
`3Try to make the value positive? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(LStrength),(TheUser),0,`<MultVal>=[(LStrength),(TheUser),-1]
@#DoctorOptionsD
`<NewLine>
`5How about this idea...I will turn the value you have for defence....
`5into a positive value...It's not a perfect solution...but it's
`5the best I can really offer you...
`5If there is no problem with the value nothing will happen.
`2
`<RetOff>
`3Try to make the value positive? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(LDefence),(TheUser),0,`<MultVal>=[(LDefence),(TheUser),-1]
@#DoctorOptionsH
`<NewLine>
`5How about this idea...I will turn the value you have for hitpoints....
`5into a positive value...It's not a perfect solution...but it's
`5the best I can really offer you...
`5If there is no problem with the value nothing will happen.
`2
`<RetOff>
`3Try to make the value positive? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(LordHP),(TheUser),0,`<MultVal>=[(LordHP),(TheUser),-1]
`<ifless>=[(LordHPMax),(TheUser),0,`<MultVal>=[(LordHPMax),(TheUser),-1]
@#MainMap
`<NewLine>
`<Clear>
`<NewLine>
`<NewLine>
`<NewLine>
`<GotoXY>=[1,1]
`8╔═════════════╦══╦═══════════════════════════════════════════════════════════╗
`8║ `8║ `5SignPost`7 /\ /----\ /----\`8 ║
`8║ `7 /\ `8║ `1^`8║`7 /\ / \ | |---------------| | `8 ║
`8║ `7 / \ `8║ ║`7 / \/ \ | | /════\ | | `8 ║
`8║ `7 / \`8║ ║`7/ \ \ | | ║ ║ | | `8 ║
`8║ `7 ~ `8║ ║ `7 ~ |__|____║____║_____|__| `6_║____ `8║
`8║ `7 ~ `8║ ║ `7 ~ `8 ║`5HG J`8║ `6/ `%INN`6 \ `8║
`8║ `6 _║____ `8║ ║ `6_║____ `8 ║`1^^ ^`8║ `6| | `8║
`8║ `6/`%TAVERN`6\ `8║ ║ `6/ `%PUB`6 \ `8 ║ ╚════════════`5I`6|__||__| `8║
`8║ `6| |`8═══╝ ╚═ `6| | `8 ║ `1^`8║ ║
`8║ `6|__||__| `5T`1< `1>`5P`6|__||__| `8 ║ ╔═════════════╝ ║
`8║ ═══╗ ╔═══ `8║ ║ ║
`8║ ║ ║ `6 _║____ _║____ _║____ `8║ ║ `6_║____ `8║
`8║ ║ ╚══`6/`%MYSTIC`6\ / `%BANK `6\ /`%ARMORY`6\ `8║ ║ `6/`%WEAPON`6\ `8 ║
`8║ `6__║____ `8║ >`5M`6| | | | | | `8 ║ `8║ `6| | `8 ║
`8║ `6/`%SUPPORT`6\`8═══╝ ╔══`6|__||__| |__||__| |__||__| `8║ `8║ `6|__||__| `6_║____ `8 ║
`8║ `6| | `5C`1< `8╚══════════════`5Y`8════════`5A`8══════╝ ╚════`5W`8═════`6/`%DOCK `6\ `8║
`8║ `6|___||__|`8═══╗ `1^ ^ ^ >`5D`6| `%BAR `6| `9~~~`8║
`8║ ╚════════════════════════════════╗`5L`1< >`5V`8╔═════════`6|__||__|`9~~~~~`8║
`8║ ╚══════╝ `9~~~~~~~`8║
`8╚════════════════════════════════════════════════════════════════════════════╝
`<SetOptions>=[TSPCMYALVDWHGJI║═╝╚╗╔\/ ]
@#MainMapOptions`
`<SetMenu>=[MainMenu]
@#MainMapOptions~
`<SetMenu>=[MainMenu]
@#MainMapOptions║
`<HitWall>
@#MainMapOptions═
`<HitWall>
@#MainMapOptions\
`<HitWall>
@#MainMapOptions╝
`<HitWall>
@#MainMapOptions╚
`<HitWall>
@#MainMapOptions╗
`<HitWall>
@#MainMapOptions╔
`<HitWall>
@#MainMapOptions/
`<HitWall>
@#MainMapOptionsL
`<SaveScr>
`<ShowLifeList>
`<RestoreScr>
@#MainMapOptionsT
`<SetMenuAndFile>=[Tavern,(TLifesDir),TRISTXT.DAT]
@#MainMapOptionsP
`<SetMenuAndFile>=[Pub,(TLifesDir),PUBTXT.DAT]
@#MainMapOptionsI
`<SetMenuAndFile>=[Inn,(TLifesDir),INNTXT.DAT]
@#MainMapOptionsD
`<SetMenuAndFile>=[Bar,(TLifesDir),BARTXT.DAT]
@#MainMapOptionsC
`<SetMenu>=[Help]
`<MainMap>
@#MainMapOptionsH
`<SetMenuAndFile>=[Deeds,(TLifesDir),DEEDSTXT.DAT]
@#MainMapOptionsJ
`<SetMenuAndFile>=[Jousting,(TLifesDir),JOUSTTXT.DAT]
@#MainMapOptionsM
`<SetMenuAndFile>=[Mystical,(TLifesDir),MYSTTXT.DAT]
@#MainMapOptionsW
`<SetMenuAndFile>=[Weapons,(TLifesDir),WEAPTXT.DAT]
@#MainMapOptionsG
`<SetMenuAndFile>=[Trainings,(TLifesDir),TRAINTXT.DAT]
@#MainMapOptionsA
`<SetMenuAndFile>=[Armour,(TLifesDir),ARMTXT.DAT]
@#MainMapOptionsY
`<SetMenuAndFile>=[Bank,(TLifesDir),BANKTXT.DAT]
@#MainMapOptionsV
`<SaveScr>
`<Clear>
`<Vals>
`<RestoreScr>
@#MainMapOptionsS
`<if>=[(MailUserResults),(TheUser),1,@#QuitWithMail]
`<Quit>
@#MainMapOptions
`<PutChar>=[ ,(MapX),(MapY)]
`<else>=[(TempInt3),(TheUser),65,@#CoolNess]
@#CoolNess
`<SetVal>=[(TempInt3),(TheUser),65]
`<MultVal>=[(FLifeGold),(TheUser),2]
@#ENDOFFILE
